home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / product.arc / MACRO57.MNU < prev    next >
Encoding:
Text File  |  1986-11-18  |  1.1 KB  |  30 lines
  1. [BASEPLTE]^C^C+
  2. (Setq SIDE1 (Getreal "Length of side 1: "));\+
  3. (Setq SIDE2 (Getreal "Length of side 2: "));\+
  4. (Setq BOLTHOLE (Getreal "Bolt hole size: "));\+
  5. (Setq CRADIUS (Getreal "Corner radius: "));\+
  6. (Setq INSET (Getreal "Bolt hole inset: "));\+
  7. (Setq CHOLE (Getreal "Center hole diameter: "));\+
  8. (Setq DS (Getreal "Dimscale for drawing: "));\+
  9. (Setq LOWER (List (* DS -5) (* DS -5)));+
  10. (Setq UPPER (List (+ (* 5 DS) SIDE1)+
  11. (+ (* 5 DS) SIDE2)));+
  12. Zoom;W;!LOWER;!UPPER;Limits;!LOWER;!UPPER;+
  13. Units;2;2;2;4;Grid;(* 2 ds);+
  14. (Setvar "Blipmode" 0);(Setvar "Ltscale" DS);+
  15. (Setq P1 (List 0 0));+
  16. (Setq P2 (List SIDE1 0));+
  17. (Setq P3 (List SIDE1 SIDE2));+
  18. (Setq P4 (List 0 SIDE2));+
  19. Layer;S;1;;Pline;!P1;!P2;!P3;!P4;CL;+
  20. Fillet;R;!CRADIUS;;P;L;+
  21. (Setq C1 (List INSET INSET));+
  22. (Setq C2 (List (- SIDE1 INSET) INSET));+
  23. (Setq C3 (List (- SIDE1 INSET)(- SIDE2 INSET)));+
  24. (Setq C4 (List INSET (- SIDE2 INSET)));+
  25. (Setq MPT (List (/ SIDE1 2) (/ SIDE2 2)));+
  26. Circle;(List INSET INSET);D;!BOLTHOLE;+
  27. (Setq S1(- SIDE1 (* 2 INSET)));+
  28. (Setq S2 (- SIDE2 (* 2 INSET)));+
  29. Array;L;;R;2;2;!S2;!S1;Circle;!MPT;D;!CHOLE;
  30.